--[[
    编码: WMS-04-50
    名称: 货位-批量创建货位
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： CreateAreaLocation

    功能:
        -- 适合有巷道的立库创建货位
        -- 在创建前先删除指定库区里所有货位（因此执行这个功能要小心）
        -- 在项目实施初期通过这个事件可以批量创建一些货位，特别是在立库项目中特别有用
        -- 可以一次把一个立库中的所有货位都创建，编码可以根据项目要求调整
        -- 特别是对有深位的立库中，通过该脚本能快速完成仓库库位的设置

        通过弹框出现的自定义界面，获取立库库位初始化所需要的信息，通过这些信息来批量创建货位(库位)
    
    更改记录:
        V2.0 HAN 20250330 巷道号属性名改进, 新增巷道数据对象的创建
  
--]]
wms_wh = require( "wms_wh" )

local nRowNo             -- 排号
local nRowGroup          -- 用于深位货位
local max_col, max_layer, nRowSegLen, nColSegLen, nLayerSegLen, nRowGroupSegLen
local capacity = 1

local aisle_list = {}
-- bIsLeftRow 创建的排是否在巷道左边
-- nRowCount 创建的排数量
-- nAisleNo 巷道号
local function create_loaction( strLuaDEID, area, bIsLeftRow, nRowCount, nAisleNo )
    local nRow
    local nRet, strRetInfo
    local strRowNo, strColNo, strLayerNo

    for nRow = 1, nRowCount do
        nRowNo = nRowNo + 1
        strRowNo = tostring( nRowNo )
        strRowNo = lua.strFill(strRowNo,nRowSegLen,"0")
        for nCol = 1, max_col do
            strColNo = tostring( nCol )
            strColNo = lua.strFill(strColNo,nColSegLen,"0")
            for nLayer = 1, max_layer do
                strLayerNo = tostring( nLayer )
                strLayerNo = lua.strFill(strLayerNo,nLayerSegLen,"0")

                local location = m3.AllocObject(strLuaDEID,"Location")
                location.wh_code = area.wh_code
                location.area_code = area.code
                location.code = area.code..'-'..strRowNo.."-"..strColNo.."-"..strLayerNo
                location.aisle = nAisleNo
                location.aisle_code = aisle_list[nAisleNo].aisle_code
                location.row = nRowNo
                location.col = nCol
                location.layer = nLayer
                location.capacity = capacity
                location.enable = 'Y'
                location.deep = nRowCount
                if ( nRowCount > 1 ) then
                    location.loc_type = 4       -- 深位
                    if ( bIsLeftRow ) then      -- 巷道左边的排
                        location.pos = nRowCount - nRow + 1
                    else
                        location.pos = nRow
                    end
                    location.row_group = nRowGroup
                end
                nRet, strRetInfo = m3.CreateDataObj( strLuaDEID, location )
                if ( nRet ~= 0 ) then return 2, '创建【货位】对象失败!'..strRetInfo end
            end
        end
    end    

    -- 如果是深位货位需要继续创建 Location_Group
    if ( nRowCount <= 1 ) then return 0 end
    local strRowGroupNo = tostring( nRowGroup )
    strRowGroupNo = lua.strFill(strRowGroupNo,nRowGroupSegLen,"0")

    for nCol = 1, max_col do
        strColNo = tostring( nCol )
        strColNo = lua.strFill(strColNo,nColSegLen,"0")        
        for nLayer = 1, max_layer do
            strLayerNo = tostring( nLayer )
            strLayerNo = lua.strFill(strLayerNo,nLayerSegLen,"0")            
            local location_group = m3.AllocObject(strLuaDEID,"Location_Group")
            location_group.wh_code = area.wh_code
            location_group.area_code = area.code
            location_group.code = "LG-"..strRowGroupNo.."."..strColNo.."."..strLayerNo
            location_group.aisle = nAisleNo
            location_group.row_group = nRowGroup
            location_group.col = nCol
            location_group.layer = nLayer
            location_group.capacity = nRowCount*capacity           -- 货位组的容量
            location_group.deep = nRowCount
            nRet, strRetInfo = m3.CreateDataObj( strLuaDEID, location_group )
            if ( nRet ~= 0 ) then return 2, '创建【货位组】对象失败!'..strRetInfo end
        end
    end   
    return  0 
end

local function get_row_str( nCount )
    local n
    local str_row = ''

    for n = 1, nCount do
        str_row = str_row..(n+nRowNo)..","
    end
    lua.trim_laster_char( str_row )
    return str_row
end

function CreateAreaLocation ( strLuaDEID ) 
    local nRet, strRetInfo

    m3.PrintLuaDEInfo( strLuaDEID )

    -- 获取输入界面中的属性
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "AREA_CODE","LOC_TYPE","LOC_CAPACITY","AISLE_COUNT","LEFT_ROW",
                                                    "RIGHT_ROW","MAX_COL","MAX_LAYER" )  
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 

    local obj_attrs = json.decode( strRetInfo ) 
    local area_code = obj_attrs[1].value                        -- 库区编码        
    local loc_type = obj_attrs[2].value                         -- 库位类型         
    capacity = lua.StrToNumber( obj_attrs[3].value )          -- 货位容量

    local aisle_count = lua.StrToNumber( obj_attrs[4].value )     -- 巷道数量
    local left_row = lua.StrToNumber( obj_attrs[5].value )          -- 左边排数
    local right_row = lua.StrToNumber( obj_attrs[6].value )         -- 右边排数
    max_col = lua.StrToNumber( obj_attrs[7].value )           -- 最大列数
    max_layer = lua.StrToNumber( obj_attrs[8].value )         -- 最大层数       

    -- 判断库区是否已经存在
    if ( area_code == nil or  area_code == '') then
        lua.Stop( strLuaDEID, "库区编码不能为空! "..strRetInfo )
        return
    end 

    nRet, area = wms_wh.GetAreaInfo( area_code )
    if (nRet ~= 0) then 
        lua.Stop( strLuaDEID, "从内存获取编码'"..area_code.."'的库区信息失败!, 库区不存在!" )
        return
    end

    lua.DebugEx( strLuaDEID, "area", area )

    -- 判断巷道数量
    if ( aisle_count <= 0 ) then
        lua.Stop( strLuaDEID, "巷道数量必须大于0" )
        return        
    end
    -- 判断货位容量
    if ( capacity <= 0 ) then
        lua.Stop( strLuaDEID, "货位容量必须大于0" )
        return
    end    

    -- 删除库区里的所有巷道数据对象
    local strCondition = "S_AREA_CODE = '"..area_code.."'"
    nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "Aisle", strCondition )
    if ( nRet ~= 0) then 
        lua.Stop( strLuaDEID, "删除【巷道】信息失败!  "..strRetInfo )
        return
    end  

    -- 删除库区中的所有货位定义
    local strCondition = "S_AREA_CODE = '"..area_code.."'"
    nRet, strRetInfo = mobox.dbdeleteData( strLuaDEID, "Location", strCondition )
    if ( nRet ~= 0) then 
        lua.Stop( strLuaDEID, "删除【货位】信息失败!  "..strRetInfo )
        return
    end  

    -- 先创建巷道数据对象
    local n
    for n = 1, aisle_count do
        local aisle_obj = m3.AllocObject(strLuaDEID,"Aisle")
        aisle_obj.wh_code = area.wh_code  
        aisle_obj.area_code = area.code 
        aisle_obj.aisle = n
        nRet, aisle_obj = m3.CreateDataObj(strLuaDEID, aisle_obj)
        if ( nRet ~= 0 ) then
            lua.Stop( strLuaDEID, '创建巷道时失败!'..aisle_obj ) 
            return                
        end    
        aisle_list[n] = aisle_obj        
    end

    -- 根据一个巷道创建巷道左右两边的货位
    local nRow, nCol, nLayer

    nRowNo = 0              -- 排号
    nRowGroup = 1           -- 用于深位货位

    -- 确定巷道，排，列，层码段的字符串长度,用于生成货位编码

    local strBuf
    local max_row = ( left_row + right_row )*aisle_count
    strBuf = tostring( max_row )
    nRowSegLen = #strBuf    
    strBuf = tostring( max_col )
    nColSegLen = #strBuf    
    strBuf = tostring( max_layer )
    nLayerSegLen = #strBuf   
    
    local max_row_group = 2*aisle_count
    strBuf = tostring( max_row_group )
    nRowGroupSegLen = #strBuf      

    local left_row_group, right_row_group
    local left_row_str, right_row_str
    local strUpdateSql
    for n = 1, aisle_count do
        -- 创建左边排
        left_row_group = nRowGroup
        left_row_str = get_row_str( left_row )
        nRet, strRetInfo = create_loaction( strLuaDEID, area, true, left_row, n )
        if ( nRet ~= 0 ) then
            lua.Stop( strLuaDEID, strRetInfo )
            return            
        end
        nRowGroup = nRowGroup + 1
        -- 创建右边排
        right_row_group = nRowGroup
        right_row_str = get_row_str( left_row )
        nRet, strRetInfo = create_loaction( strLuaDEID, area, false, right_row, n )
        if ( nRet ~= 0 ) then
            lua.Stop( strLuaDEID, strRetInfo )
            return            
        end        
        nRowGroup = nRowGroup + 1

        -- 更新巷道管理对象属性

        strUpdateSql = "S_LEFT_ROW = '"..left_row_str.."', S_RIGHT_ROW = '"..right_row_str.."',"..
                       "N_LEFT_ROW_GROUP = "..left_row_group..", N_RIGHT_ROW_GROUP = "..right_row_group..","..
                       "N_LEFT_DEEP = "..left_row..", N_RIGHT_DEEP = "..right_row
        strCondition = "S_AREA_CODE = '"..area.code.."'"
        nRet, strRetInfo = mobox.updateDataAttrByCondition( strLuaDEID, "Aisle", strCondition, strUpdateSql )
        if ( nRet ~= 0 ) then  
            lua.Stop( strLuaDEID, "更新【巷道】信息失败!"..strRetInfo )
            return
        end   
    end

end